home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / checkpr.zip / TESTPR.PRG < prev   
Text File  |  1993-01-04  |  865b  |  36 lines
  1. SET TALK OFF
  2. mprinter=0
  3. CLEA
  4. LOAD CHECKPR
  5. @1,0 SAY "Printer to check (0-2)" GET mprinter PICT "9" RANGE 0,2
  6. READ
  7. mprinter=LTRI(STR(mprinter))
  8. CALL CHECKPR WITH mprinter
  9. DO CASE
  10. CASE mprinter="O"
  11.      mstat='Printer ready'
  12. CASE mprinter="I"
  13.      mstat='Printer I/O error...printer turned off?'
  14. CASE mprinter="N"
  15.      mstat='Printer not selected'
  16. CASE mprinter="P"
  17.      mstat='Printer out of paper'
  18. CASE mprinter="W"
  19.      mstat='Wrong parameter for CHECKPR or I screwed up <grin>'
  20. CASE mprinter="V"
  21.      mstat='No printer port?'
  22. CASE mprinter="L"
  23.      mstat='Printer offline'
  24. CASE mprinter="C"
  25.      mstat='Printer not connected'
  26. CASE mprinter="U"
  27.      mstat='Unknown problem with printer'
  28. OTHE
  29.      mstat='I definitely screwed up here...CHECKPR choked (whoops)'
  30. ENDC
  31. @3,0 SAY "CHECKPR returns: "+mstat
  32. WAIT
  33. RELE MODU CHECKPR
  34. RETU
  35.  
  36.